Begin Window "frmMain"        title = "Controls Demonstration"        height = 400        width = 300        maxwidth = 500        maxheight = 500        frame = 1        visible = trueEnd Windowpublic property TheUsername as stringpublic sub DoSomething()	me.title = "Welcome " & me.theUsernameend subevent sub frmMain_Moved()	me.title = "Moved to " & me.left & " " & me.topend subevent sub frmMain_Resized()	me.title = "Resized to " & me.width & " " & me.heightend sub